home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
vis082s.arc
/
VISION.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-04-17
|
4KB
|
128 lines
{$R-,S-,I-,D-,F+,V-,B-,N-,L+,O+}
{$M 63000,4800,28000}
{$DEFINE Overlays}
{ ViSiON BBS Software Written by Crimson Blade & The Elemental }
{ Compiled under Turbo Pascal v6.0 }
{ The BEST Kick-Ass software in the business!!! }
Uses
Crt, { Turbo Pascal CRT library }
Dos, { Turbo Pascal DOS library }
Printer, { Turbo Pascal Printer library }
Overlay, { Sets up the files to be put in the overlay file. }
OvrCall, { Calls the overlay files }
gentypes, { All type and constant declarations }
configrt, { Configuration declarations / procedures }
modem, { Modem support }
statret, { System status declarations / procedures }
gensubs, { General subroutines: lowest level }
subs1, { First subroutine library }
windows, { Routines to manage the split screen }
subs2, { Second subroutine library: higer level I/O }
textret, { Message base routines }
mailret, { E-mail routines }
userret, { User routines }
flags, { Board access flag routines }
mainr1, { High-level routines, set one }
ansiedit, { Full-screen editor }
lineedit, { Line editor }
chatstuf, { Chat mode routines }
mainr2, { High-level routines, set two }
overret1, { High-level routines, set three }
Bulletin, { Bulletin section }
Configur, { Configuration section }
Database, { Database section }
Doors, { Door section }
Email, { Electronic mail section }
Filexfer, { File transfer section }
Voting, { Voting section }
Mycomman, { Generic Shell Routines }
MainMenu, { Main menu commands }
Main, { Main menu shell }
Waitcall, { Waiting for calls }
Getlogin, { Log-in procedure }
Init, { Initialization routines }
Others, { Other Routines (Overlayed), i.e. user routines }
Subs3, { Low Level routines #3 used in filexfer. }
ExecSwap, { Maximum Dos Shell Routines }
Fossil;
{$IFDEF Overlays}
{$O Email}
{$O Init}
{$O Getlogin}
{$O Configur}
{$O Database}
{$O Doors}
{$O Voting}
{$O Mycomman}
{$O Filexfer}
{$O Waitcall}
{$O Bulletin}
{$O Lineedit}
{$O Ansiedit}
{$O Mailret}
{$O Menus}
{$O PCBoard}
{$O Others}
{$ENDIF}
(* {}{}{} ViSiON BBS Systems Main Program {}{}{} *)
var gotoforumterm:boolean;
begin
readconfig;
{ initializeasync; } { SHIT STUFF! }
UseEmsIfAvailable:=True;
If Not InitExecSwap(HeapPtr,'SWAP.$$$') Then Begin
WriteLn('Unable to allocate Swap Space!');
Delay(1500);
End;
If Not Install_FOSSIL (ConfigSet.UseCo) Then Begin
Writeln (#13#10'ERROR: There is no Fossil Driver Resident in Memory.');
Halt (4);
End;
local:=FALSE;
checkbreak:=false;
validconfiguration;
initforum(true);
fromdoor:=paramcount>=3;
repeat
gotoforumterm:=false;
returnfromdoor;
if not fromdoor then begin
gotoforumterm:=waitforacall;
getloginproc
end;
if not gotoforumterm then begin
newmailre;
if not fromdoor then if tonext>-1 then begin
WriteHdr('Message from Last User');
PrintText(tonext);
if sysopisavail then writehdr(configset.sysopi) else writehdr(configset.sysopo);
end;
votingbooth (true);
mainmenuproc;
writeln(direct,#27,'[0m');
fromdoor:=false;
if not disconnected then disconnect;
ensureclosed;
clrscr;
dontanswer;
if sysnext then
begin
closeport;
textmode(co80);
halt(4);
end;
initforum (false)
end
until not gotoforumterm;
closeport;
halt(0)
end.